 
 
 
 
 

 


  *******************************************************************
 ****Table A1
 *********************************************************************

 
 
  use "citypanel_12_19.dta",clear
 
quietly xtreg logPM25  cleanpolicy logPGDP logpopdensity loggreenland logpexp logarea_build wind i.year , fe r cluster(prefid)  		 
					 
sutex logPM25 logSO2  cleanpolicy logPGDP logpopdensity loggreenland logpexp logarea_build wind  if e(sample)	, minmax




 use "cfps_12_20.dta",clear
 

  xtreg trust_cadre cleanpolicy age female urban schooling party i.year i.prefid , fe cluster(pid)	 
					 
sutex trust_cadre local_gov age female urban schooling party  if e(sample), minmax
		
 
 
 
 
   *******************************************************************
 ****Table A2
 *********************************************************************

  use "citypanel_12_19.dta",clear
 
 xtreg logPM25 pre_5- pre2 logPGDP logpopdensity loggreenland logpexp logarea_build wind i.year , fe r cluster(prefid)  
   eststo
 xtreg logSO2 pre_5- pre2 logPGDP logpopdensity loggreenland logpexp logarea_build wind i.year , fe r cluster(prefid)  
   eststo
  esttab, se(3) b(3) drop(*.year logPGDP logpopdensity loggreenland logpexp logarea_build wind _cons) star(* .1 ** .05 *** .01) tex r2
 eststo clear
    
 
 
 
 
   *******************************************************************
 ****Table A3
 *********************************************************************

   use "citypanel_12_19.dta",clear
 
 sort prefid year
 xtset prefid year
 
 
 
 foreach y of varlist logpm25_0 logpm25_1 logso2_0 logso2_1 {

  xtreg `y' cleanpolicy logPGDP logpopdensity loggreenland logpexp logarea_build wind i.year prov1_year* prov2_year* prov3_year* prov4_year* prov5_year*, fe r cluster(prefid)  
 eststo
}

 esttab, se(3) b(3) drop(*.year _cons prov1_year* prov2_year* prov3_year* prov4_year* prov5_year*) star(* .1 ** .05 *** .01) tex r2
 eststo clear

 
 
    *******************************************************************
 ****Table A4
 *********************************************************************

    use "cfps_12_20.dta",clear
 
 

 foreach y of varlist trust_cadre local_gov{
 
  ologit `y' cleanpolicy i.year i.prefid,  vce(cluster pid)
  eststo
 ologit `y' cleanpolicy age female urban schooling party i.year i.prefid ,  vce(cluster pid)
  eststo
 ologit `y' cleanpolicy age female urban schooling party logPGDP logpopdensity loggreenland logpexp logarea_build wind i.year i.prefid ,  vce(cluster pid)
  eststo
 }

  esttab, se(3) b(3) keep(cleanpolicy age female urban schooling party logPGDP logpopdensity loggreenland logpexp logarea_build wind) star(* .1 ** .05 *** .01) tex pr2
 eststo clear
 
 
   
   
 *******************************************************************
 ****Table A5
 *********************************************************************
 
   
 
 use "fulldata_rural",clear
 
ologit trust_central_govern reform , r cluster(village_number)
  eststo
ologit  trust_central_govern  reform  net_income age gender education agri_work , r cluster(village_number)
  eststo 
 ologit  trust_central_govern  reform  net_income age gender education agri_work party enroll_vote political_news trad_media , r cluster(village_number)
  eststo 
 ologit trust_local_govern reform , r cluster(village_number)
  eststo
ologit  trust_local_govern reform  net_income age gender education agri_work  , r cluster(village_number)
  eststo
ologit  trust_local_govern reform  net_income age gender education agri_work party enroll_vote political_news trad_media , r cluster(village_number)
  eststo
     esttab, se(3) b(3)  order(reform )  star(* .1 ** .05 *** .01) tex pr2
 eststo clear
  
  
  

  *******************************************************************
 ****Figure A1
 *********************************************************************
				
 use "fulldata_rural",clear
 
 
 
 
 graph hbar, over(support_gas)    ///
      ytitle("Percent %",height(5) size(small))    bar(1, fcolor(white) color(black))  ///  
           graphregion(color(white)) ylab(,nogrid) ///
		     title("",size(small) color(black)) ///
			  blabel(bar, size(vsmall) format(%4.2f)) ///
			  b1title("Support Clean Eenergy Renovation (Natural Gas)",height(5) size(small))   
			 
	
graph save "gas",replace




 graph hbar, over(support_elec)    ///
      ytitle("Percent %",height(5) size(small))    bar(1, fcolor(white) color(black))  ///  
           graphregion(color(white)) ylab(,nogrid) ///
		     title("",size(small) color(black)) ///
			  blabel(bar, size(vsmall) format(%4.2f)) ///
			  b1title("Support Clean Eenergy Renovation (Electricity)",height(5) size(small))   
			 
	
graph save "elec",replace


graph combine gas.gph elec.gph ,altshrink scheme(s1mono)	graphregion(fcolor(white)) 			
	
	
 
 
 
 
 	
				
		
	

	
 
 
 
 
 
 